home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / DMTDEMOS / MEDIATYP.DEM < prev    next >
Text File  |  1994-07-02  |  678b  |  34 lines

  1. program MediaTypSample;
  2.  
  3.  uses crt, DMT;
  4.  
  5.  var
  6.    MediaType : byte;
  7.  
  8.    DrvLetter : char;
  9.  
  10. begin
  11.   Color( 7, 0 );
  12.   clrscr;
  13.  
  14.   write( 'Select drive to check ( A-Z ) [ :]');
  15.   gotoxy( wherex - 3, wherey );
  16.   DrvLetter := upcase( readkey );
  17.   writeln( DrvLetter );
  18.  
  19.   MediaType := MediaTyp( DrvLetter );    { Call MediaTyp function }
  20.  
  21.   if ( ErrFlag ) then
  22.     begin
  23.       writeln( #7 );
  24.       writeln( ShowError( GetErrCode ) );
  25.     end
  26.   else
  27.     case ( MediaType ) of
  28.        0 : writeln( #13#10, 'Drive ', DrvLetter, ': uses removable media.');
  29.  
  30.        1 : writeln( #13#10, 'Drive ', DrvLetter, ': uses fixed media.');
  31.     end;
  32.  
  33.  GetEnter;
  34. end.